home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script08 (.txt) < prev    next >
Encoding:
Wingz Script  |  1989-06-07  |  2.7 KB  |  59 lines  |  [WZSC/WNGZ]
  1. WNGZWZSC01b1
  2. Demo08
  3. Perfect
  4.     Champagne
  5. Record
  6. Calculator
  7. Glasses
  8. Glasses
  9. Calculator
  10. Record
  11.     Champagne
  12. Money
  13. Eagle
  14. SDOpen
  15. DoSound
  16. Segway
  17. ColorScreencall sd:SDOpen("Demo08",1)
  18. call sd:DoSound("Perfect")
  19. repaint selections off
  20. wait for (sd:Segway * 2.0) seconds
  21. hide fields
  22. select object "Champagne"
  23. Object Location frac(A2..B15,1,117,1,52)
  24. wait for (sd:Segway * .5) seconds
  25. select object "Record"
  26. Object Location frac(B2..F9,0,90,255,62)
  27. wait for (sd:Segway * .5) seconds
  28. select object "Flag"
  29. Object Location frac(A13..C19,128,200,64,117)
  30. wait for (sd:Segway * .5) seconds
  31. select object "Calculator"
  32. Object Location frac(B8..D20,128,207,64,65)
  33. wait for (sd:Segway * .5) seconds
  34. select object "Glasses"
  35. Object Location frac(A18..C24,43,96,255,110)
  36. wait for (sd:Segway * .5) seconds
  37. select object "Man"
  38. Object Location frac(D5..H24,43,210,43,34)
  39. wait for (sd:Segway * 1.0) seconds
  40. select object "Man" clear wait for (sd:Segway * .25) seconds
  41. select object "Glasses" clear wait for (sd:Segway * .25) seconds
  42. select object "Calculator" clear wait for (sd:Segway * .25) seconds
  43. select object "Flag" clear wait for (sd:Segway * .25) seconds
  44. select object "Record" clear wait for (sd:Segway * .25) seconds
  45. select object "Champagne" clear wait for (sd:Segway * .25) seconds
  46. Select object "City"
  47. Object Location frac(B2..F15,149,86,85,55)
  48. wait for (sd:Segway * .5) seconds
  49. select object "Money"
  50. Object Location frac(D9..H23,85,48,255,38)
  51. wait for (sd:Segway * .5) seconds
  52. if sd:ColorScreen = 1
  53.     select object "Eagle"
  54.     Object Location frac(A1..C21,234,103,128,128)
  55.     wait for (sd:Segway * 1.5) second
  56. end if
  57. repaint selections on
  58. close now
  59.